home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2001 April
/
Chip_2001-04_cd1.bin
/
chplus
/
matika
/
Dokumenty
/
Kalkulačka
/
Celá čísla.mtd
next >
Wrap
Text File
|
2000-02-11
|
2KB
|
83 lines
(***Soubor programu Matematika 1.2, ID=2451675435***)
[KalkulaΦka]
╪ßdek[0]=#//Faktorißly
╪ßdek[1]=#FactorialI(5); FactorialI(150); //p°esn², ale jen pro malß Φφsla
╪ßdek[2]=# 120; P°φliÜ vysokΘ Φφslo.
╪ßdek[3]=#FactorialR(150); //nep°esn², ale pro hodn∞ velkß Φφsla
╪ßdek[4]=# 5.7E+0262
╪ßdek[5]=#
╪ßdek[6]=#//PrvoΦφsla
╪ßdek[7]=#InitPrvoΦφsla(10000000); //vytvo°φ se Eratosthenovo sφto->zrychlenφ prßce
╪ßdek[8]=# Rozsah prvoΦφsel: 10000000
╪ßdek[9]=#JePrvoΦφslo(13); JePrvoΦφslo(491551);
╪ßdek[10]=# True; False
╪ßdek[11]=#ItΘPrvoΦφslo(1); ItΘPrvoΦφslo(110);
╪ßdek[12]=# 2; 601
╪ßdek[13]=#PoΦetPrvoΦφsel(1, 5); PoΦetPrvoΦφsel(100, 1000);
╪ßdek[14]=# 3; 143
╪ßdek[15]=#
╪ßdek[16]=#//DalÜφ triky
╪ßdek[17]=#╚φsloNaZlomek(0.25); ╚φsloNaZlomek(0.01256);
╪ßdek[18]=# 1/4; 157/12500
╪ßdek[19]=#RozkladVSouΦin(491551, False); RozkladVSouΦin(117504, True);
╪ßdek[20]=# 149*3299; 2^8*3^3*17^1
╪ßdek[21]=#D∞litelΘ(125);
╪ßdek[22]=# [1, 5, 25, 125]
╪ßdek[23]=#MinNßsobek([12, 15, 48]);
╪ßdek[24]=# 240
╪ßdek[25]=#MaxD∞litel([60, 70, 125]);
╪ßdek[26]=# 5
╪ßdek[27]=#Modulus(32, 7); //Zbytek po d∞lenφ
╪ßdek[28]=# 4
╪ßdek[29]=#
╪ßdek[30]=#//Zaokrouhlovßnφ
╪ßdek[31]=#Int(5.25); Int(-5.25); Int(5);
╪ßdek[32]=# 5; -5; 5
╪ßdek[33]=#Ceil(5.25); Ceil(-5.25); Ceil(5);
╪ßdek[34]=# 6; -5; 5
╪ßdek[35]=#Floor(5.25); Floor(-5.25); Floor(5);
╪ßdek[36]=# 5; -6; 5
╪ßdek[37]=#Frac(5.25); Frac(-5.25); Frac(5);
╪ßdek[38]=# 0.25; -0.25; 0
[Graf]
Height=627
Width=833
MinX=-10
MaxX=10
MinY=-10
MaxY=10
Barva os=╚ernß
Barva pozadφ=Bφlß
Barva m°φ₧e=Bφlß
NadpisX=x
NadpisY=y
ZnaΦkyX=Auto,1,3,Normal,"",1
ZnaΦkyY=Auto,1,3,Normal,"",1
FontPopisku=[Arial, 8, 0, ╚ernß]
RßmeΦek=0
DrobnΘ d∞lenφ=1
Osy vlevo dole=0
AutoVelikost=1
[Zobrazenφ]
Zobrazit=[False, True, False, False, False]
Body=185
Memo=652
Data=225
Aktivnφ memo=0
Aktivnφ GridObj=0
Aktivnφ RegFce=0
Font p°φkaz∙=[Courier New, 10, 0, $80000008]
Font koeficient∙=[Courier New, 10, 0, ╚ernß]
ZnaΦka bod∙=1
[Desetinnß Φφsla]
KalkulaΦka=[10, Normal]
V²pis=[7, Normal]
Koeficienty=[8, Fix]
Kopφrovßnφ=[10, Normal]
(***KONEC***)
Body Data RegFce